library(rtweet)
library(plotly)
Loading required package: ggplot2

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout
## authenticate via access token
token <- create_token(
  app = "Witek",
  consumer_key = Sys.getenv("CONSUMER_KEY"),
  consumer_secret = Sys.getenv("CONSUMER_SECRET"),
  access_token = Sys.getenv("ACCESS_TOKEN"),
  access_secret = Sys.getenv("ACCESS_SECRET")
  )
## search for 10000 tweets using the key words
rt <- search_tweets(
  "data + scientist OR analyst OR analist OR engineer + lang:nl", n = 10000, include_rts = FALSE
)
Searching for tweets...
Finished collecting tweets!
## preview tweets data
rt
## preview users data
users_data(rt)
## plot time series
p <- ts_plot(rt)
ggplotly(p, width = "900")

rt <- apply(rt,2,as.character)
write.csv(rt, "twitter-jobs.csv")
LS0tCnRpdGxlOiAiUnR3ZWV0IgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0KbGlicmFyeShydHdlZXQpCmxpYnJhcnkocGxvdGx5KQoKIyMgYXV0aGVudGljYXRlIHZpYSBhY2Nlc3MgdG9rZW4KdG9rZW4gPC0gY3JlYXRlX3Rva2VuKAogIGFwcCA9ICJXaXRlayIsCiAgY29uc3VtZXJfa2V5ID0gU3lzLmdldGVudigiQ09OU1VNRVJfS0VZIiksCiAgY29uc3VtZXJfc2VjcmV0ID0gU3lzLmdldGVudigiQ09OU1VNRVJfU0VDUkVUIiksCiAgYWNjZXNzX3Rva2VuID0gU3lzLmdldGVudigiQUNDRVNTX1RPS0VOIiksCiAgYWNjZXNzX3NlY3JldCA9IFN5cy5nZXRlbnYoIkFDQ0VTU19TRUNSRVQiKQogICkKCiMjIHNlYXJjaCBmb3IgMTAwMDAgdHdlZXRzIHVzaW5nIHRoZSBrZXkgd29yZHMKcnQgPC0gc2VhcmNoX3R3ZWV0cygKICAiZGF0YSArIHNjaWVudGlzdCBPUiBhbmFseXN0IE9SIGFuYWxpc3QgT1IgZW5naW5lZXIgKyBsYW5nOm5sIiwgbiA9IDEwMDAwLCBpbmNsdWRlX3J0cyA9IEZBTFNFCikKCiMjIHByZXZpZXcgdHdlZXRzIGRhdGEKcnQKCiMjIHByZXZpZXcgdXNlcnMgZGF0YQp1c2Vyc19kYXRhKHJ0KQoKIyMgcGxvdCB0aW1lIHNlcmllcwpwIDwtIHRzX3Bsb3QocnQpCmdncGxvdGx5KHAsIHdpZHRoID0gIjkwMCIpCgpydCA8LSBhcHBseShydCwyLGFzLmNoYXJhY3RlcikKCndyaXRlLmNzdihydCwgInR3aXR0ZXItam9icy5jc3YiKQoKYGBgCgo=